Aminet 7/Aminet 7 - August 1995.iso/Aminet/text/hyper/ADtoHT2_1.lha/Source.lha/MyLib.lha/stdio/ungetc.c

C/C++ Source or Header | 1995-03-04 | 348 b | 28 lines

#include <stdio.h>

#include <proto/dos.h>

/************************************************************************/

#undef ungetc

int ungetc(int c, FILE *Stream)

{
  int Result;

  if (c!=EOF)
    {
      Result=UnGetC(fileno(Stream),c);
      if (Result!=c)
    {
      Result=EOF;
    }
    }
  else
    {
      Result=EOF;
    }
  return Result;
}